VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{736A8444-E374-41A8-B526-1B07FD2F3F5B}#1.0#0"; "BLacKPeaRLOCX.ocx"
Begin VB.Form FrmStyles 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Style Editor"
   ClientHeight    =   9480
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   12255
   Icon            =   "FrmStyle.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   9480
   ScaleWidth      =   12255
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton CmdPrev 
      Caption         =   "Preview"
      Height          =   375
      Left            =   9000
      TabIndex        =   135
      Top             =   5520
      Width           =   855
   End
   Begin VB.CommandButton CmdSimpan 
      Caption         =   "Simpan"
      Height          =   375
      Left            =   10920
      TabIndex        =   134
      Top             =   5520
      Width           =   855
   End
   Begin VB.CommandButton CmdNew 
      Caption         =   "Buat Baru"
      Height          =   375
      Left            =   9960
      TabIndex        =   133
      Top             =   5520
      Width           =   855
   End
   Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame2 
      Height          =   5895
      Left            =   8520
      TabIndex        =   119
      Top             =   120
      Width           =   3615
      _ExtentX        =   6376
      _ExtentY        =   10398
      BackColor1      =   4210752
      BackColor2      =   0
      BackGradient    =   1
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   49152
      TitleColor1     =   8421504
      TitleColor2     =   0
      TitleGradient   =   2
      BorderColor     =   49152
      BorderWidth     =   2
      Begin VB.PictureBox Picture1 
         BackColor       =   &H00FF0000&
         BorderStyle     =   0  'None
         Height          =   450
         Left            =   2520
         ScaleHeight     =   450
         ScaleWidth      =   495
         TabIndex        =   131
         Top             =   3360
         Width           =   495
         Begin VB.TextBox txtRGB 
            Alignment       =   2  'Center
            Height          =   330
            Index           =   2
            Left            =   30
            MaxLength       =   3
            TabIndex        =   132
            Text            =   "0"
            Top             =   50
            Width           =   435
         End
      End
      Begin VB.PictureBox Picture2 
         BackColor       =   &H000000FF&
         BorderStyle     =   0  'None
         Height          =   450
         Left            =   2520
         ScaleHeight     =   450
         ScaleWidth      =   495
         TabIndex        =   129
         Top             =   1920
         Width           =   495
         Begin VB.TextBox txtRGB 
            Alignment       =   2  'Center
            Height          =   330
            Index           =   0
            Left            =   30
            MaxLength       =   3
            TabIndex        =   130
            Text            =   "0"
            Top             =   50
            Width           =   435
         End
      End
      Begin VB.PictureBox Picture3 
         BackColor       =   &H0000C000&
         BorderStyle     =   0  'None
         Height          =   450
         Left            =   2520
         ScaleHeight     =   450
         ScaleWidth      =   495
         TabIndex        =   127
         Top             =   2640
         Width           =   495
         Begin VB.TextBox txtRGB 
            Alignment       =   2  'Center
            Height          =   330
            Index           =   1
            Left            =   30
            MaxLength       =   3
            TabIndex        =   128
            Text            =   "0"
            Top             =   50
            Width           =   435
         End
      End
      Begin VB.HScrollBar hsbRGB 
         Height          =   450
         Index           =   2
         LargeChange     =   16
         Left            =   120
         Max             =   255
         TabIndex        =   124
         Top             =   3360
         Width           =   2385
      End
      Begin VB.HScrollBar hsbRGB 
         Height          =   450
         Index           =   1
         LargeChange     =   16
         Left            =   120
         Max             =   255
         TabIndex        =   123
         Top             =   2640
         Width           =   2385
      End
      Begin VB.HScrollBar hsbRGB 
         Height          =   450
         Index           =   0
         LargeChange     =   16
         Left            =   120
         Max             =   255
         TabIndex        =   122
         Top             =   1920
         Width           =   2355
      End
      Begin VB.TextBox txtcolorcode 
         Height          =   285
         Left            =   120
         TabIndex        =   121
         Top             =   4200
         Width           =   3015
      End
      Begin VB.TextBox txtnamastyle 
         Height          =   285
         Left            =   1080
         TabIndex        =   120
         Top             =   4920
         Width           =   2175
      End
      Begin VB.Label Sampel 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         Height          =   1440
         Left            =   120
         MousePointer    =   15  'Size All
         TabIndex        =   126
         ToolTipText     =   "Drag to test color match"
         Top             =   360
         Width           =   2940
      End
      Begin VB.Label Label54 
         BackStyle       =   0  'Transparent
         Caption         =   "Nama Style"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   120
         TabIndex        =   125
         Top             =   4920
         Width           =   975
      End
   End
   Begin VB.CommandButton Cmdambil 
      Caption         =   "Refresh"
      Height          =   375
      Left            =   6840
      TabIndex        =   118
      Top             =   5520
      Width           =   1215
   End
   Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame1 
      Height          =   5895
      Left            =   120
      TabIndex        =   13
      Top             =   120
      Width           =   8295
      _ExtentX        =   14631
      _ExtentY        =   10398
      BackColor1      =   4210752
      BackColor2      =   0
      BackGradient    =   0
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   49152
      TitleColor1     =   8421504
      TitleColor2     =   0
      TitleGradient   =   2
      BorderColor     =   49152
      BorderWidth     =   2
      Begin VB.TextBox LBackColor 
         Height          =   285
         Left            =   3720
         TabIndex        =   59
         Top             =   4320
         Width           =   1200
      End
      Begin VB.TextBox opForecolor 
         Height          =   285
         Left            =   1200
         TabIndex        =   58
         Top             =   1440
         Width           =   1200
      End
      Begin VB.TextBox opBackcolor 
         Height          =   285
         Left            =   1200
         TabIndex        =   57
         Top             =   1680
         Width           =   1200
      End
      Begin VB.TextBox RcBackcolor 
         Height          =   285
         Left            =   3720
         TabIndex        =   56
         Top             =   3720
         Width           =   1200
      End
      Begin VB.TextBox lblForeColor 
         Height          =   285
         Left            =   3720
         TabIndex        =   55
         Top             =   3120
         Width           =   1200
      End
      Begin VB.TextBox cboForeColor 
         Height          =   285
         Left            =   3720
         TabIndex        =   54
         Top             =   5040
         Width           =   1200
      End
      Begin VB.TextBox cboBackcolor 
         Height          =   285
         Left            =   3720
         TabIndex        =   53
         Top             =   5280
         Width           =   1200
      End
      Begin VB.TextBox GDGridColorFixed 
         Height          =   285
         Left            =   3720
         TabIndex        =   52
         Top             =   2520
         Width           =   1200
      End
      Begin VB.TextBox GDForeColorFixed 
         Height          =   285
         Left            =   3720
         TabIndex        =   51
         Top             =   2040
         Width           =   1200
      End
      Begin VB.TextBox GDGridColor 
         Height          =   285
         Left            =   3720
         TabIndex        =   50
         Top             =   2280
         Width           =   1200
      End
      Begin VB.TextBox GDBackcolor 
         Height          =   285
         Left            =   3720
         TabIndex        =   49
         Top             =   600
         Width           =   1200
      End
      Begin VB.TextBox GDBackColorBkg 
         Height          =   285
         Left            =   3720
         TabIndex        =   48
         Top             =   840
         Width           =   1200
      End
      Begin VB.TextBox GDBackColorSel 
         Height          =   285
         Left            =   3720
         TabIndex        =   47
         Top             =   1080
         Width           =   1200
      End
      Begin VB.TextBox GDBackColorFixed 
         Height          =   285
         Left            =   3720
         TabIndex        =   46
         Top             =   1320
         Width           =   1200
      End
      Begin VB.TextBox GDForeColorSel 
         Height          =   285
         Left            =   3720
         TabIndex        =   45
         Top             =   1560
         Width           =   1200
      End
      Begin VB.TextBox GDForecolor 
         Height          =   285
         Left            =   3720
         TabIndex        =   44
         Top             =   1800
         Width           =   1200
      End
      Begin VB.TextBox frameBackColor1 
         Height          =   285
         Left            =   1200
         TabIndex        =   43
         Top             =   2280
         Width           =   1200
      End
      Begin VB.TextBox frameBackColor2 
         Height          =   285
         Left            =   1200
         TabIndex        =   42
         Top             =   2520
         Width           =   1200
      End
      Begin VB.TextBox frameBorderColor 
         Height          =   285
         Left            =   1200
         TabIndex        =   41
         Top             =   2760
         Width           =   1200
      End
      Begin VB.TextBox frameForecolor 
         Height          =   285
         Left            =   1200
         TabIndex        =   40
         Top             =   3000
         Width           =   1200
      End
      Begin VB.TextBox frameTitleColor1 
         Height          =   285
         Left            =   1200
         TabIndex        =   39
         Top             =   3240
         Width           =   1200
      End
      Begin VB.TextBox frameTitleColor2 
         Height          =   285
         Left            =   1200
         TabIndex        =   38
         Top             =   3480
         Width           =   1200
      End
      Begin VB.TextBox TFocusBorderColor 
         Height          =   285
         Left            =   6720
         TabIndex        =   37
         Top             =   3840
         Width           =   1200
      End
      Begin VB.TextBox TFocusForeColor 
         Height          =   285
         Left            =   6720
         TabIndex        =   36
         Top             =   4080
         Width           =   1200
      End
      Begin VB.TextBox TForecolor 
         Height          =   285
         Left            =   6720
         TabIndex        =   35
         Top             =   2400
         Width           =   1200
      End
      Begin VB.TextBox TBackcolor 
         Height          =   285
         Left            =   6720
         TabIndex        =   34
         Top             =   2640
         Width           =   1200
      End
      Begin VB.TextBox TBackColorMain 
         Height          =   285
         Left            =   6720
         TabIndex        =   33
         Top             =   2880
         Width           =   1200
      End
      Begin VB.TextBox TBorderColor 
         Height          =   285
         Left            =   6720
         TabIndex        =   32
         Top             =   3120
         Width           =   1200
      End
      Begin VB.TextBox TFocusBackColor 
         Height          =   285
         Left            =   6720
         TabIndex        =   31
         Top             =   3360
         Width           =   1200
      End
      Begin VB.TextBox TFocusBackMainColor 
         Height          =   285
         Left            =   6720
         TabIndex        =   30
         Top             =   3600
         Width           =   1200
      End
      Begin VB.TextBox lbltextback 
         Height          =   285
         Left            =   1200
         TabIndex        =   29
         Top             =   840
         Width           =   1200
      End
      Begin VB.TextBox lbltextfore 
         Height          =   285
         Left            =   1200
         TabIndex        =   28
         Top             =   600
         Width           =   1200
      End
      Begin VB.TextBox txtlForeOver 
         Height          =   285
         Left            =   6720
         TabIndex        =   27
         Top             =   1800
         Width           =   1200
      End
      Begin VB.TextBox txtlForecolor 
         Height          =   285
         Left            =   6720
         TabIndex        =   26
         Top             =   1560
         Width           =   1200
      End
      Begin VB.TextBox txtlBackOver 
         Height          =   285
         Left            =   6720
         TabIndex        =   25
         Top             =   1320
         Width           =   1200
      End
      Begin VB.TextBox txtlBackcolor 
         Height          =   285
         Left            =   6720
         TabIndex        =   24
         Top             =   1080
         Width           =   1200
      End
      Begin VB.TextBox txtlColorScheme 
         Height          =   285
         Left            =   6720
         TabIndex        =   23
         Top             =   840
         Width           =   1200
      End
      Begin VB.TextBox txtlButtonType 
         Height          =   285
         Left            =   6720
         TabIndex        =   22
         Top             =   600
         Width           =   1200
      End
      Begin VB.TextBox WFore 
         Height          =   285
         Left            =   6720
         TabIndex        =   21
         Top             =   4560
         Width           =   1200
      End
      Begin VB.TextBox Frametitlegradient 
         Height          =   285
         Left            =   1200
         TabIndex        =   20
         Top             =   3960
         Width           =   1200
      End
      Begin VB.TextBox frameBackGradient 
         Height          =   285
         Left            =   1200
         TabIndex        =   19
         Top             =   3720
         Width           =   1200
      End
      Begin VB.TextBox frametitleheight 
         Height          =   285
         Left            =   1200
         TabIndex        =   18
         Top             =   4200
         Width           =   1200
      End
      Begin VB.TextBox Gstart 
         Height          =   285
         Left            =   1200
         TabIndex        =   17
         Text            =   "&HFF00"
         Top             =   4800
         Width           =   1200
      End
      Begin VB.TextBox Gstop 
         Height          =   285
         Left            =   1200
         TabIndex        =   16
         Text            =   "&HFFFF"
         Top             =   5040
         Width           =   1200
      End
      Begin VB.TextBox GTstart 
         Height          =   285
         Left            =   1200
         TabIndex        =   15
         Text            =   "&H3CFFA7"
         Top             =   5280
         Width           =   1200
      End
      Begin VB.TextBox GTStop 
         Height          =   285
         Left            =   1200
         TabIndex        =   14
         Text            =   "&H0"
         Top             =   5520
         Width           =   1200
      End
      Begin VB.Label Label51 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Forecolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   117
         Top             =   1560
         Width           =   660
      End
      Begin VB.Label Label50 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Foreover"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   116
         Top             =   1800
         Width           =   630
      End
      Begin VB.Label Label49 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "BackOver"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   115
         Top             =   1320
         Width           =   720
      End
      Begin VB.Label ColorScheme 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "ColorScheme"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   114
         Top             =   840
         Width           =   945
      End
      Begin VB.Label Label48 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "FocusBackMain"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   113
         Top             =   3600
         Width           =   1155
      End
      Begin VB.Label Label47 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "BorderColor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   112
         Top             =   3120
         Width           =   825
      End
      Begin VB.Label Label46 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "BackColorMain"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   111
         Top             =   2880
         Width           =   1080
      End
      Begin VB.Label Label45 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "FocusForeColor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   110
         Top             =   4080
         Width           =   1110
      End
      Begin VB.Label Label42 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "FocusBorderColor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   109
         Top             =   3840
         Width           =   1260
      End
      Begin VB.Label Label41 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "FocusBackColor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   108
         Top             =   3360
         Width           =   1170
      End
      Begin VB.Label Label44 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "GridColorFixed"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   107
         Top             =   2520
         Width           =   1020
      End
      Begin VB.Label Label43 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "GridColor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   106
         Top             =   2280
         Width           =   645
      End
      Begin VB.Label Label40 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "ForeColorFixed"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   105
         Top             =   2040
         Width           =   1050
      End
      Begin VB.Label Label39 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "ForecolorSel"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   104
         Top             =   1560
         Width           =   885
      End
      Begin VB.Label Label38 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "BackColorSel"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   103
         Top             =   1080
         Width           =   960
      End
      Begin VB.Label Label37 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "BackColorBkg"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   102
         Top             =   840
         Width           =   1020
      End
      Begin VB.Label Label36 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "BackColorFixed"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   101
         Top             =   1320
         Width           =   1110
      End
      Begin VB.Label Label35 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Bordercolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   100
         Top             =   2760
         Width           =   810
      End
      Begin VB.Label Label34 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Titlecolor1"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   99
         Top             =   3240
         Width           =   735
      End
      Begin VB.Label Label33 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Titlecolor2"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   98
         Top             =   3480
         Width           =   735
      End
      Begin VB.Label Label32 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Backcolor1"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   97
         Top             =   2280
         Width           =   810
      End
      Begin VB.Label Label31 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Backcolor2"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   96
         Top             =   2520
         Width           =   810
      End
      Begin VB.Label Label30 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Backcolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   95
         Top             =   600
         Width           =   720
      End
      Begin VB.Label Label29 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "ButtonType"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   94
         Top             =   600
         Width           =   825
      End
      Begin VB.Label Label28 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Backcolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   93
         Top             =   2640
         Width           =   720
      End
      Begin VB.Label Label27 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Backcolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   92
         Top             =   4320
         Width           =   720
      End
      Begin VB.Label Label26 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Backcolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   91
         Top             =   3720
         Width           =   720
      End
      Begin VB.Label Label25 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Backcolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   90
         Top             =   5280
         Width           =   720
      End
      Begin VB.Label Label24 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Backcolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   89
         Top             =   1680
         Width           =   720
      End
      Begin VB.Label Label23 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Backcolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   88
         Top             =   840
         Width           =   720
      End
      Begin VB.Label Label22 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Backcolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   87
         Top             =   1080
         Width           =   720
      End
      Begin VB.Label Label21 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Forecolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   86
         Top             =   2400
         Width           =   660
      End
      Begin VB.Label Label20 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Forecolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   85
         Top             =   1800
         Width           =   660
      End
      Begin VB.Label Label18 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Forecolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   84
         Top             =   3120
         Width           =   660
      End
      Begin VB.Label Label17 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Forecolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   2520
         TabIndex        =   83
         Top             =   5040
         Width           =   660
      End
      Begin VB.Label Label16 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Forecolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   82
         Top             =   3000
         Width           =   660
      End
      Begin VB.Label Label15 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Forecolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   81
         Top             =   1440
         Width           =   660
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Forecolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   80
         Top             =   600
         Width           =   660
      End
      Begin VB.Label Label13 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "List"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   3720
         TabIndex        =   79
         Top             =   4080
         Width           =   315
      End
      Begin VB.Label Label12 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Option"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   1200
         TabIndex        =   78
         Top             =   1200
         Width           =   570
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Rich Text"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   3720
         TabIndex        =   77
         Top             =   3480
         Width           =   840
      End
      Begin VB.Label Label10 
         BackStyle       =   0  'Transparent
         Caption         =   "Label"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   3720
         TabIndex        =   76
         Top             =   2880
         Width           =   1200
      End
      Begin VB.Label Label9 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Combo"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   3720
         TabIndex        =   75
         Top             =   4800
         Width           =   585
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Grid"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   3720
         TabIndex        =   74
         Top             =   360
         Width           =   360
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Frame"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   1200
         TabIndex        =   73
         Top             =   2040
         Width           =   525
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "TextBox2"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   6720
         TabIndex        =   72
         Top             =   2160
         Width           =   810
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Button"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   6720
         TabIndex        =   71
         Top             =   360
         Width           =   570
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "TextBox"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   1200
         TabIndex        =   70
         Top             =   360
         Width           =   705
      End
      Begin VB.Label Label52 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Forecolor"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   5280
         TabIndex        =   69
         Top             =   4560
         Width           =   660
      End
      Begin VB.Label Label53 
         BackStyle       =   0  'Transparent
         Caption         =   "Windows"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   6720
         TabIndex        =   68
         Top             =   4320
         Width           =   1200
      End
      Begin VB.Label Label55 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "TitleGradient"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   67
         Top             =   3960
         Width           =   900
      End
      Begin VB.Label Label56 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "BackGradient"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   66
         Top             =   3720
         Width           =   975
      End
      Begin VB.Label Label57 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "TitleHeight"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   65
         Top             =   4200
         Width           =   765
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Temp Start"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   64
         Top             =   5280
         Width           =   780
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Start"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   63
         Top             =   4800
         Width           =   330
      End
      Begin VB.Label Label58 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Stop"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   62
         Top             =   5040
         Width           =   330
      End
      Begin VB.Label Label59 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Temp Stop"
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   120
         TabIndex        =   61
         Top             =   5520
         Width           =   780
      End
      Begin VB.Label Label60 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Grid Start/Stop"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   195
         Left            =   1200
         TabIndex        =   60
         Top             =   4560
         Width           =   1305
      End
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   360
      Top             =   11280
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin BLacKPeaRLOCX.BLacKFrame c 
      Height          =   3255
      Left            =   120
      TabIndex        =   0
      Top             =   6120
      Width           =   12015
      _ExtentX        =   21193
      _ExtentY        =   5741
      BackColor1      =   4210752
      BackColor2      =   0
      BackGradient    =   1
      Caption         =   "Frame"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   49152
      TitleColor1     =   8421504
      TitleColor2     =   0
      TitleGradient   =   2
      TitleHeight     =   350
      BorderColor     =   49152
      BorderWidth     =   2
      Begin ComctlLib.ListView ListView2 
         Height          =   615
         Left            =   7800
         TabIndex        =   11
         Top             =   1680
         Width           =   3015
         _ExtentX        =   5318
         _ExtentY        =   1085
         View            =   3
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         _Version        =   327682
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   2
         BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Text            =   "ListView1"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
            SubItemIndex    =   1
            Key             =   ""
            Object.Tag             =   ""
            Text            =   "Listview1"
            Object.Width           =   2540
         EndProperty
      End
      Begin MSComctlLib.ListView ListView1 
         Height          =   615
         Left            =   7800
         TabIndex        =   10
         Top             =   2400
         Width           =   3015
         _ExtentX        =   5318
         _ExtentY        =   1085
         View            =   3
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   2
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "Listview2"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "Listview2"
            Object.Width           =   2540
         EndProperty
      End
      Begin RichTextLib.RichTextBox RichTextBox1 
         Height          =   1095
         Left            =   7800
         TabIndex        =   9
         Top             =   480
         Width           =   3015
         _ExtentX        =   5318
         _ExtentY        =   1931
         _Version        =   393217
         TextRTF         =   $"FrmStyle.frx":719A
      End
      Begin VB.OptionButton Option2 
         Caption         =   "Option1"
         Height          =   255
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   2880
         Width           =   2415
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Options Button"
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   2520
         Width           =   2415
      End
      Begin VB.ComboBox Combo1 
         Height          =   315
         Left            =   4800
         TabIndex        =   6
         Text            =   "Combo"
         Top             =   2400
         Width           =   2535
      End
      Begin VB.TextBox Text1 
         Height          =   285
         Left            =   4800
         TabIndex        =   5
         Text            =   "TextBox"
         Top             =   2040
         Width           =   2535
      End
      Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
         Height          =   1935
         Left            =   120
         TabIndex        =   4
         Top             =   480
         Width           =   4575
         _ExtentX        =   8070
         _ExtentY        =   3413
         _Version        =   393216
      End
      Begin BLacKPeaRLOCX.BLacKText TxtUser 
         Height          =   375
         Left            =   4800
         TabIndex        =   2
         Top             =   840
         Width           =   2535
         _ExtentX        =   4471
         _ExtentY        =   661
         BackColor       =   4210752
         BackColorMain   =   16777215
         DownButton      =   0   'False
         BorderColor     =   255
         Locked          =   -1  'True
         FocusBackColor  =   0
         FocusForeColor  =   255
         FocusBackMainColor=   12632256
         FocusBorderColor=   12582912
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   8.25
         ForeColor       =   0
         Text            =   "Text2"
      End
      Begin BLacKPeaRLOCX.ButtonNix cmdbatal 
         Height          =   615
         Left            =   4800
         TabIndex        =   1
         Top             =   1320
         Width           =   2535
         _ExtentX        =   4471
         _ExtentY        =   1085
         BTYPE           =   5
         TX              =   "Button"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   0   'False
         BCOL            =   1184274
         BCOLO           =   16777215
         FCOL            =   49152
         FCOLO           =   49152
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmStyle.frx":723D
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin VB.Label Label4 
         BackStyle       =   0  'Transparent
         Caption         =   "Label Label Label Label"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   4800
         TabIndex        =   3
         Top             =   480
         Width           =   2535
      End
   End
   Begin VB.Label lblstat 
      Caption         =   "Label3"
      Height          =   255
      Left            =   4920
      TabIndex        =   12
      Top             =   6600
      Visible         =   0   'False
      Width           =   1095
   End
End
Attribute VB_Name = "FrmStyles"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Type POINTAPI
    X   As Long
    Y   As Long
End Type
Private mbNoChange      As Boolean
Private mbCapture       As Boolean
Private miCurQBIdx      As Integer
Private mlCurColor      As Long
Private msaSysColors()  As String
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Dim con1 As String
Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Private Sub ResetControls()
Dim lColor  As Long
Dim iIdx    As Integer
Dim iRed    As Integer
Dim iGreen  As Integer
Dim iBlue   As Integer
Dim sRed    As String
Dim sGreen  As String
Dim sBlue   As String
Dim sHex    As String

    mbNoChange = True
    lColor = mlCurColor
    Sampel.Backcolor = lColor
    
    iRed = (lColor And &HFF&)
    iGreen = (lColor And &HFF00&) / &H100
    iBlue = (lColor And &HFF0000) / &H10000
    
    sHex = Hex(lColor)
    If Len(sHex) < 6 Then
        sHex = String(6 - Len(sHex), "0") & sHex
    End If
    txtcolorcode.Text = "&H" & sHex
    
        sRed = CStr(iRed)
        sGreen = CStr(iGreen)
        sBlue = CStr(iBlue)
    
    hsbRGB(0).value = iRed
    hsbRGB(1).value = iGreen
    hsbRGB(2).value = iBlue

    
    If txtRGB(0).Text <> sRed Then
        txtRGB(0).Text = sRed
        txtRGB(0).SelStart = Len(txtRGB(0).Text)
    End If
    If txtRGB(1).Text <> sGreen Then
        txtRGB(1).Text = sGreen
        txtRGB(1).SelStart = Len(txtRGB(1).Text)
    End If
    If txtRGB(2).Text <> sBlue Then
        txtRGB(2).Text = sBlue
        txtRGB(2).SelStart = Len(txtRGB(2).Text)
    End If
    mbNoChange = False
    End Sub
Private Sub DrawQBButtons()
Dim iIdx As Integer
    For iIdx = 0 To 15
        miCurQBIdx = 0
    Next iIdx
End Sub


Private Sub Cmdambil_Click()
ambilstyle
End Sub

Private Sub CmdNew_Click()
txtnamastyle.Text = ""
lblstat.Caption = "Baru"
End Sub



Private Sub hsbRGB_Change(Index As Integer)
    If Not mbNoChange Then
        mlCurColor = RGB(hsbRGB(0).value, hsbRGB(1).value, hsbRGB(2).value)
        Call ResetControls
    End If
End Sub
Private Sub hsbRGB_Scroll(Index As Integer)
    Call hsbRGB_Change(Index)
End Sub
Private Sub CmdPrev_Click()
Call StyleS
End Sub
Private Sub CmdSimpan_Click()
If txtnamastyle.Text = "Default" Then
MsgBox "Nama Default tidak bisa di ganti.", vbInformation, "Cannot Rename"
Exit Sub
ElseIf txtnamastyle.Text = "default" Then
MsgBox "Nama Default tidak bisa di ganti.", vbInformation, "Cannot Rename"
Exit Sub
Else
If lblstat.Caption = "Baru" Then
MsgBox "Gunakan nama style " & txtnamastyle.Text & "  yang telah anda simpan di form utama", vbInformation, "Style"
End If
simpanstyle
End If
lblstat.Caption = ""
End Sub
Private Sub simpanstyle()
Dim bhs As New ClSINI
If txtnamastyle.Text = "" Then
MsgBox "isi nama style anda", vbInformation, "Blank Name"
Exit Sub
Else
bhs.FileName = App.path & "\Styles\" & txtnamastyle.Text & ".ini"
bhs.ApplicationKey = "Default"

bhs.SetValue lbltextfore.Name, lbltextfore
bhs.SetValue lbltextback.Name, lbltextback

bhs.SetValue opForecolor.Name, opForecolor.Text
bhs.SetValue opBackcolor.Name, opBackcolor.Text

bhs.SetValue frameBackColor1.Name, frameBackColor1.Text
bhs.SetValue frameBackColor2.Name, frameBackColor2.Text
bhs.SetValue frameBorderColor.Name, frameBorderColor.Text
bhs.SetValue frameForecolor.Name, frameForecolor.Text
bhs.SetValue frameTitleColor1.Name, frameTitleColor1.Text
bhs.SetValue frameTitleColor2.Name, frameTitleColor2.Text
bhs.SetValue frameBackGradient.Name, frameBackGradient
bhs.SetValue Frametitlegradient.Name, Frametitlegradient
bhs.SetValue frametitleheight.Name, frametitleheight
bhs.SetValue cboForeColor.Name, cboForeColor.Text
bhs.SetValue cboBackcolor.Name, cboBackcolor.Text

bhs.SetValue GDBackcolor.Name, GDBackcolor.Text
bhs.SetValue GDBackColorBkg.Name, GDBackColorBkg.Text
bhs.SetValue GDBackColorSel.Name, GDBackColorSel.Text
bhs.SetValue GDBackColorFixed.Name, GDBackColorFixed.Text
bhs.SetValue GDForeColorSel.Name, GDForeColorSel.Text
bhs.SetValue GDForecolor.Name, GDForecolor.Text
bhs.SetValue GDForeColorFixed.Name, GDForeColorFixed.Text
bhs.SetValue GDGridColor.Name, GDGridColor.Text
bhs.SetValue GDGridColorFixed.Name, GDGridColorFixed.Text

bhs.SetValue lblForeColor.Name, lblForeColor.Text

bhs.SetValue RcBackcolor.Name, RcBackcolor.Text


bhs.SetValue LBackColor.Name, LBackColor.Text

bhs.SetValue txtlButtonType.Name, txtlButtonType.Text
bhs.SetValue txtlColorScheme.Name, txtlColorScheme.Text
bhs.SetValue txtlBackcolor.Name, txtlBackcolor.Text
bhs.SetValue txtlBackOver.Name, txtlBackOver.Text
bhs.SetValue txtlForecolor.Name, txtlForecolor.Text
bhs.SetValue txtlForeOver.Name, txtlForeOver.Text

bhs.SetValue TForecolor.Name, TForecolor.Text
bhs.SetValue TBackcolor.Name, TBackcolor.Text
bhs.SetValue TBackColorMain.Name, TBackColorMain.Text
bhs.SetValue TBorderColor.Name, TBorderColor.Text
bhs.SetValue TFocusBackColor.Name, TFocusBackColor.Text
bhs.SetValue TFocusBackMainColor.Name, TFocusBackMainColor.Text
bhs.SetValue TFocusBorderColor.Name, TFocusBorderColor.Text
bhs.SetValue TFocusForeColor.Name, TFocusForeColor.Text
bhs.SetValue WFore.Name, WFore.Text

bhs.SetValue Gstop.Name, Gstop.Text
bhs.SetValue Gstart.Name, Gstart.Text
bhs.SetValue GTStop.Name, GTStop.Text
bhs.SetValue GTstart.Name, GTstart.Text

MsgBox "Style berhasil disimpan.", vbInformation, "Success"
End If

End Sub
Private Sub ambilstyle()
Dim bhs As New ClSINI
bhs.FileName = App.path & "\Styles\" & txtnamastyle.Text & ".ini"
bhs.ApplicationKey = "Default"
lbltextfore.Text = bhs.GetValue("lbltextfore", "")
lbltextback.Text = bhs.GetValue("lbltextback", "")

opForecolor.Text = bhs.GetValue("opForecolor", "")
opBackcolor.Text = bhs.GetValue("opBackcolor", "")

frameBackColor1.Text = bhs.GetValue("frameBackColor1", "")
frameBackColor2.Text = bhs.GetValue("frameBackColor2", "")
frameBorderColor.Text = bhs.GetValue("frameBorderColor", "")
frameForecolor.Text = bhs.GetValue("frameForecolor", "")
frameTitleColor1.Text = bhs.GetValue("frameTitleColor1", "")
frameTitleColor2.Text = bhs.GetValue("frameTitleColor2", "")
frameBackGradient.Text = bhs.GetValue("frameBackGradient", "")
Frametitlegradient.Text = bhs.GetValue("Frametitlegradient", "")
frametitleheight.Text = bhs.GetValue("frametitleheight", "")
cboForeColor.Text = bhs.GetValue("cboForeColor", "")
cboBackcolor.Text = bhs.GetValue("cboBackcolor", "")

GDBackcolor.Text = bhs.GetValue("GDBackcolor", "")
GDBackColorBkg.Text = bhs.GetValue("GDBackColorBkg", "")
GDBackColorSel.Text = bhs.GetValue("GDBackColorSel", "")
GDBackColorFixed.Text = bhs.GetValue("GDBackColorFixed", "")
GDForeColorSel.Text = bhs.GetValue("GDForeColorSel", "")
GDForecolor.Text = bhs.GetValue("GDForecolor", "")
GDForeColorFixed.Text = bhs.GetValue("GDForeColorFixed", "")
GDGridColor.Text = bhs.GetValue("GDGridColor", "")
GDGridColorFixed.Text = bhs.GetValue("GDGridColorFixed", "")

lblForeColor.Text = bhs.GetValue("lblForeColor", "")

RcBackcolor.Text = bhs.GetValue("RcBackcolor", "")

LBackColor.Text = bhs.GetValue("LBackColor", "")

txtlButtonType.Text = bhs.GetValue("txtlButtonType", "")
txtlColorScheme.Text = bhs.GetValue("txtlColorScheme", "")
txtlBackcolor.Text = bhs.GetValue("txtlBackcolor", "")
txtlBackOver.Text = bhs.GetValue("txtlBackOver", "")
txtlForecolor.Text = bhs.GetValue("txtlForecolor", "")
txtlForeOver.Text = bhs.GetValue("txtlForeOver", "")

TForecolor.Text = bhs.GetValue("TForecolor", "")
TBackcolor.Text = bhs.GetValue("TBackcolor", "")
TBackColorMain.Text = bhs.GetValue("TBackColorMain", "")
TBorderColor.Text = bhs.GetValue("TBorderColor", "")
TFocusBackColor.Text = bhs.GetValue("TFocusBackColor", "")
TFocusBackMainColor.Text = bhs.GetValue("TFocusBackMainColor", "")
TFocusBorderColor.Text = bhs.GetValue("TFocusBorderColor", "")
TFocusForeColor.Text = bhs.GetValue("TFocusForeColor", "")
WFore.Text = bhs.GetValue("WFore", "")

Gstop.Text = bhs.GetValue("Gstop", "")
Gstart.Text = bhs.GetValue("gstart", "")
GTstart.Text = bhs.GetValue("GTstart", "")
GTStop.Text = bhs.GetValue("GTstop", "")


End Sub

Private Sub Form_Load()
Dim bhs As New ClSINI
bhs.FileName = App.path & "\Styles\Used.ini"
bhs.ApplicationKey = "Style Now"
txtnamastyle.Text = bhs.GetValue("Nama Style", "")
If txtnamastyle.Text = "Default" Then
Exit Sub
Else
ambilstyle
StyleS
End If
End Sub
Private Sub StyleS()
On Error Resume Next
Dim ctrl As Control
For Each ctrl In Controls
If FrmStyles.txtnamastyle.Text = "Default" Then
Exit Sub
Else
    If (TypeOf ctrl Is ButtonNix) And _
        ctrl.Name <> "cmdSwitchStyle" Then
        ctrl.ButtonType = txtlButtonType.Text
        ctrl.ColorScheme = txtlColorScheme.Text
        ctrl.Backcolor = txtlBackcolor.Text
        ctrl.BackOver = txtlBackOver.Text
        ctrl.Forecolor = txtlForecolor.Text
        ctrl.ForeOver = txtlForeOver.Text
       
    End If
        If (TypeOf ctrl Is BLacKFrame) And _
        ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.BackColor1 = frameBackColor1.Text
         ctrl.BackColor2 = frameBackColor2.Text
         ctrl.BorderColor = frameBorderColor.Text
         ctrl.Forecolor = frameForecolor.Text
         ctrl.TitleColor1 = frameTitleColor1.Text
         ctrl.TitleColor2 = frameTitleColor2.Text
         ctrl.TitleHeight = frametitleheight.Text
         If frameBackGradient.Text = 0 Then
         ctrl.BackGradient = None
         ElseIf frameBackGradient.Text = 1 Then
         ctrl.BackGradient = Vertical
         ElseIf frameBackGradient.Text = 2 Then
         ctrl.BackGradient = Horizontal
         End If
         
         If Frametitlegradient.Text = 0 Then
         ctrl.TitleGradient = None
         ElseIf Frametitlegradient.Text = 1 Then
         ctrl.TitleGradient = Vertical
         ElseIf Frametitlegradient.Text = 2 Then
         ctrl.TitleGradient = Horizontal
         End If
         
    End If
        If (TypeOf ctrl Is BLacKText) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = TForecolor.Text
         ctrl.Backcolor = TBackcolor.Text
         ctrl.BackColorMain = TBackColorMain.Text
         ctrl.BorderColor = TBorderColor.Text
         ctrl.FocusBackColor = TFocusBackColor.Text
         ctrl.FocusBackMainColor = TFocusBackMainColor.Text
         ctrl.FocusBorderColor = TFocusBorderColor.Text
         ctrl.FocusForeColor = TFocusForeColor.Text
    End If
        If (TypeOf ctrl Is MSFlexGrid) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = GDBackcolor.Text
         ctrl.BackColorBkg = GDBackColorBkg.Text
         ctrl.BackColorSel = GDBackColorSel.Text
         ctrl.BackColorFixed = GDBackColorFixed.Text
         ctrl.ForeColorSel = GDForeColorSel.Text
         ctrl.Forecolor = GDForecolor.Text
         ctrl.ForeColorFixed = GDForeColorFixed.Text
         ctrl.GridColor = GDGridColor.Text
         ctrl.GridColorFixed = GDGridColorFixed.Text
    End If
        If (TypeOf ctrl Is TextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = lbltextfore.Text
         ctrl.Backcolor = lbltextback.Text
    End If
        If (TypeOf ctrl Is ComboBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = cboForeColor.Text
         ctrl.Backcolor = cboBackcolor.Text
    End If
        If (TypeOf ctrl Is Label) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = lblForeColor.Text
    End If
        If (TypeOf ctrl Is RichTextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = RcBackcolor.Text
    End If
    
            If (TypeOf ctrl Is OptionButton) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = opForecolor.Text
         ctrl.Backcolor = opBackcolor.Text
    End If
            If (TypeOf ctrl Is ListView) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = LBackColor.Text
    End If
    Me.Backcolor = WFore.Text
    End If
Next ctrl
End Sub

